home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / D-Demos / (c)d2.d64 / colour test.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  668b  |  28 lines
  1. 3 REM COLOR BLOCKS
  2. 5 G=13*4096:POKE G+33,1
  3. 7 S$=""
  4. 10 PRINT "[147]":CD$="[144][159][156][158][143][149][150][151][152][153][154][155]"
  5. 13 DATA "[144]BLACK","[146][144]WHITE","RED"
  6. 14 DATA "[159]CYAN","[156]PURPLE","GREEN"
  7. 15 DATA "BLUE","[158]YELLOW","[143]ORANGE"
  8. 16 DATA "[149]BROWN","[150]PINK","[151]GRAY 1"
  9. 17 DATA "[152]GRAY 2","[153]LT GREEN","[154]LT BLUE"
  10. 18 DATA "[155]GRAY 3"
  11. 20 FOR X=0 TO 3
  12. 25 FOR Y=1 TO 5
  13. 30 FOR Z=1 TO 4
  14. 40 PRINT " "MID$(CD$,X*4+Z,1)"        [146] ";
  15. 50 NEXT Z
  16. 60 NEXT Y
  17. 65 IF X<>3 THEN PRINT
  18. 70 NEXT X
  19. 75 PRINT "[144]"SPC(11)"[207][163][163][163][163][163][163][208]"SPC(32)"[165]      [167]"
  20. 76 PRINT SPC(11)"[165]      [167]"SPC(32)"[165]      [167]"
  21. 79 PRINTSPC(11)"[204][164][164][164][164][164][164][186]"
  22. 80 PRINT"";:FOR X=1 TO 4
  23. 90 READ A$,B$,C$,D$
  24. 100 PRINT "";:IF X=1 THEN PRINT "[145]";
  25. 105 PRINT ""A$,""B$,""C$,""D$
  26. 110 NEXT X
  27. 120 GOTO 120
  28.